Chip 2003 January/01_03.iso/software/snow/fsnowgen_setup.exe/{app}/fsnowgen.exe/0/RCDATA/TMAINWINDOW/TMAINWINDOW.txt

Text File | 2002-11-03 | 11.5 KB | 489 lines

object MainWindow: TMainWindow
  Left = 204
  Top = 295
  Width = 780
  Height = 414
  Caption = 'Fractal Snowflake Generator 1.2'
  Color = clBtnFace
  Constraints.MinHeight = 414
  Constraints.MinWidth = 513
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 356
    Top = 0
    Width = 416
    Height = 380
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    object EmailLabel: TLabel
      Left = 297
      Top = 352
      Width = 112
      Height = 13
      Hint = 'Send mail'
      Alignment = taRightJustify
      Caption = '[e-mail]'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 14483456
      Font.Height = -11
      Font.Name = 'MS Shell Dlg'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = EmailLabelClick
    end
    object WebSiteLabel: TLabel
      Left = 216
      Top = 352
      Width = 65
      Height = 13
      Hint = 'Visit our web site'
      Caption = 'a-i-studio.com'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 14483456
      Font.Height = -11
      Font.Name = 'MS Shell Dlg'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = WebSiteLabelClick
    end
    object Label13: TLabel
      Left = 216
      Top = 336
      Width = 177
      Height = 13
      Caption = #169' 2002 A.I.Studio. All rights reserved.'
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 8
      Width = 193
      Height = 81
      Caption = 'General Properties'
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 71
        Height = 13
        Caption = '&Number of rays'
        FocusControl = RaysField
      end
      object Label4: TLabel
        Left = 104
        Top = 24
        Width = 50
        Height = 13
        Caption = '&Complexity'
        FocusControl = IterationsField
      end
      object RaysField: TFnpNumericEdit
        Left = 16
        Top = 40
        Width = 73
        Height = 21
        Hint = '[1..30]. Use Up/Down keyboard buttons to change value.'
        MaxLength = 2
        TabOrder = 0
        OnChange = AutoRefreshCheckBoxClick
        Decimals = 0
        MaxValue = 30
        MinValue = 1
        AllowOutOfBounds = False
        Value = 6
      end
      object IterationsField: TFnpNumericEdit
        Left = 104
        Top = 40
        Width = 73
        Height = 21
        Hint = '[1..12]. Use Up/Down keyboard buttons to change value.'
        MaxLength = 2
        TabOrder = 1
        OnChange = AutoRefreshCheckBoxClick
        Decimals = 0
        MaxValue = 12
        MinValue = 1
        AllowOutOfBounds = False
        Value = 8
      end
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 96
      Width = 193
      Height = 129
      Caption = 'Sub-rays Properties'
      TabOrder = 1
      object Label2: TLabel
        Left = 16
        Top = 24
        Width = 49
        Height = 13
        Caption = '&Scaling, %'
        FocusControl = ScalingField
      end
      object Label3: TLabel
        Left = 16
        Top = 72
        Width = 51
        Height = 13
        Caption = '&Position, %'
        FocusControl = SubPosField
      end
      object Label5: TLabel
        Left = 104
        Top = 72
        Width = 37
        Height = 13
        Caption = '&Angle, '#176
        FocusControl = SubAngleField
      end
      object ScalingField: TFnpNumericEdit
        Left = 16
        Top = 40
        Width = 73
        Height = 21
        Hint = '[3..300]. Use Up/Down keyboard buttons to change value.'
        MaxLength = 3
        TabOrder = 0
        OnChange = AutoRefreshCheckBoxClick
        Decimals = 0
        MaxValue = 300
        MinValue = 3
        AllowOutOfBounds = False
        Value = 60
      end
      object SubPosField: TFnpNumericEdit
        Left = 16
        Top = 88
        Width = 73
        Height = 21
        Hint = '[5..100]. Use Up/Down keyboard buttons to change value.'
        MaxLength = 3
        TabOrder = 2
        OnChange = AutoRefreshCheckBoxClick
        Decimals = 0
        MaxValue = 100
        MinValue = 5
        AllowOutOfBounds = False
        Value = 50
      end
      object SubAngleField: TFnpNumericEdit
        Left = 104
        Top = 88
        Width = 73
        Height = 21
        Hint = '[5..175]. Use Up/Down keyboard buttons to change value.'
        MaxLength = -1
        TabOrder = 3
        OnChange = AutoRefreshCheckBoxClick
        Decimals = 1
        MaxValue = 175
        MinValue = 5
        AllowOutOfBounds = False
        Value = 60
      end
      object Button1: TButton
        Left = 104
        Top = 40
        Width = 73
        Height = 25
        Caption = 'Ran&dom'
        TabOrder = 1
        OnClick = Button1Click
      end
    end
    object GroupBox3: TGroupBox
      Left = 216
      Top = 8
      Width = 193
      Height = 313
      Caption = 'Scene Properties'
      TabOrder = 2
      object Label7: TLabel
        Left = 16
        Top = 120
        Width = 58
        Height = 13
        Caption = '&Background'
      end
      object BgColorButton: TCDPSpeedButton
        Left = 16
        Top = 136
        Width = 73
        Height = 26
        Flat = True
        Color = 8404992
        Options = [cdpColorPreview]
        OnChange = BgColorButtonChange
        OnColorPreview = BgColorButtonColorPreview
      end
      object Label8: TLabel
        Left = 104
        Top = 120
        Width = 54
        Height = 13
        Caption = 'F&oreground'
      end
      object FgColorButton: TCDPSpeedButton
        Left = 104
        Top = 136
        Width = 73
        Height = 26
        Flat = True
        Options = [cdpColorPreview]
        OnChange = FgColorButtonChange
        OnColorPreview = FgColorButtonColorPreview
      end
      object Label6: TLabel
        Left = 16
        Top = 24
        Width = 42
        Height = 13
        Caption = '&Rotate, '#176
        FocusControl = RotateAngleField
      end
      object Bevel4: TBevel
        Left = 16
        Top = 104
        Width = 161
        Height = 17
        Shape = bsTopLine
      end
      object Label9: TLabel
        Left = 104
        Top = 24
        Width = 41
        Height = 13
        Caption = 'Scal&e, %'
        FocusControl = GlobalScaleField
      end
      object Bevel1: TBevel
        Left = 16
        Top = 256
        Width = 161
        Height = 17
        Shape = bsTopLine
      end
      object AntiAliasCheckBox: TCheckBox
        Left = 16
        Top = 200
        Width = 73
        Height = 17
        Caption = 'Ant&i-alias'
        Checked = True
        State = cbChecked
        TabOrder = 3
        OnClick = AntiAliasCheckBoxClick
      end
      object FadeCheckBox: TCheckBox
        Left = 16
        Top = 224
        Width = 65
        Height = 17
        Hint = 'Make sub-rays transparent'
        Caption = '&Fade'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = RefreshButtonClick
      end
      object RotateAngleField: TFnpNumericEdit
        Left = 16
        Top = 40
        Width = 73
        Height = 21
        Hint = '[0,0..359,0]. Use Up/Down keyboard buttons to change value.'
        MaxLength = -1
        TabOrder = 0
        OnChange = AutoRefreshCheckBoxClick
        Decimals = 1
        MaxValue = 359
        AllowOutOfBounds = False
      end
      object AutoRotateCheckBox: TCheckBox
        Left = 16
        Top = 72
        Width = 73
        Height = 17
        Caption = 'A&uto rotate'
        TabOrder = 2
        OnClick = AutoRotateCheckBoxClick
      end
      object GlobalScaleField: TFnpNumericEdit
        Left = 104
        Top = 40
        Width = 73
        Height = 21
        Hint = '[10..150]. Use Up/Down keyboard buttons to change value.'
        MaxLength = -1
        TabOrder = 1
        OnChange = FormResize
        Decimals = 0
        MaxValue = 150
        MinValue = 10
        AllowOutOfBounds = False
        Value = 80
      end
      object RefreshButton: TButton
        Left = 16
        Top = 272
        Width = 75
        Height = 25
        Caption = 'Refres&h'
        Default = True
        TabOrder = 6
        OnClick = RefreshButtonClick
      end
      object AutoRefreshCheckBox: TCheckBox
        Left = 104
        Top = 276
        Width = 81
        Height = 17
        Caption = 'Au&to refresh'
        Checked = True
        State = cbChecked
        TabOrder = 7
        OnClick = AutoRefreshCheckBoxClick
      end
      object RandomizeCheckBox: TCheckBox
        Left = 104
        Top = 224
        Width = 73
        Height = 17
        Hint = 'Randomize transparency of sub-rays'
        Caption = 'Randomi&ze'
        TabOrder = 5
        OnClick = RefreshButtonClick
      end
      object SwapButton: TButton
        Left = 64
        Top = 168
        Width = 65
        Height = 25
        Caption = 'Swap (&/)'
        TabOrder = 8
        OnClick = SwapButtonClick
      end
    end
    object GroupBox4: TGroupBox
      Left = 8
      Top = 232
      Width = 193
      Height = 137
      Caption = 'Saving Options'
      TabOrder = 3
      object Label10: TLabel
        Left = 16
        Top = 24
        Width = 45
        Height = 13
        Caption = '&Width, px'
        FocusControl = ScalingField
      end
      object Label11: TLabel
        Left = 104
        Top = 24
        Width = 48
        Height = 13
        Caption = 'Hei&ght, px'
        FocusControl = ScalingField
      end
      object CopyButton: TButton
        Left = 16
        Top = 96
        Width = 161
        Height = 25
        Caption = 'Sa&ve to BMP'
        TabOrder = 3
        OnClick = CopyButtonClick
      end
      object XSizeField: TFnpNumericEdit
        Left = 16
        Top = 40
        Width = 73
        Height = 21
        Hint = '[100..5000]. Use Up/Down keyboard buttons to change value.'
        MaxLength = 5
        TabOrder = 0
        OnChange = XSizeFieldChange
        Decimals = 0
        MaxValue = 5000
        MinValue = 100
        AllowOutOfBounds = False
        Value = 500
      end
      object YSizeField: TGrNumericEdit
        Left = 104
        Top = 40
        Width = 73
        Height = 21
        Hint = '[100..5000]. Use Up/Down keyboard buttons to change value.'
        MaxLength = 5
        TabOrder = 1
        Decimals = 0
        MaxValue = 5000
        MinValue = 100
        AllowOutOfBounds = False
        Value = 500
      end
      object YEqXCheckBox: TCheckBox
        Left = 104
        Top = 72
        Width = 57
        Height = 17
        Caption = 'Y &= X'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = YEqXCheckBoxClick
      end
    end
  end
  object PaintBoxPanel: TPanel
    Left = 0
    Top = 0
    Width = 356
    Height = 380
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 1
    object PaintBox: TPaintBox32
      Left = 16
      Top = 16
      Width = 97
      Height = 97
      TabOrder = 0
      OnPaintBuffer = PaintBoxPaintBuffer
    end
  end
  object RotateTimer: TTimer
    Enabled = False
    Interval = 10
    OnTimer = RotateTimerTimer
    Left = 36
    Top = 160
  end
  object SaveDialog: TSaveDialog
    Filter = 'Windows Bitmap Images (*.bmp)|*.bmp'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Title = 'Save Bitmap Image'
    Left = 72
    Top = 160
  end
end